1 IFSW=1GOTO3
2 SW=1:LOAD"E/F PN SM",8,1
3 L=2:H=157
4 POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
5 LC=646:POKE53272,21
10 POKE53281,1:POKELC,2:PRINT"[147]":PRINT"PUER NOBIS NASCITUR (CANON)
15 [151]LC,3:[153][163]10)"PUER NOBIS NASCITUR
16 POKELC,4:PRINTTAB(10)"RECTOR ANGELORUM.
17 [151]LC,5:[153][163]10)"IN HOC MUNDO PASCITUR
18 POKELC,6:PRINTTAB(10)"DOMINUS DOMINORUM.
20 [158]598
21 [139][194](788)[179][177]49[167]21
22 [129]AA[178]1[164]2000:[130]
30 [151]53272,23:[153]"LOAD":[153][163]15)"(null)EPEAT - (null)
35 PRINT"[212]O [211]EE A [208]ICTURE OF THE [200]OLY [198]AMILY
40 [153][163]16)"(null)RESS (null)
45 PRINT"([193]FTER VIEWING: [193]NY KEY TO CLR SCREEN)
50 [153][163]11)"(null)O QUIT    -    (null)WAIT
60 POKE198,0
70 GETA$:IFA$=""THEN70
80 IFA$="Q"THENEND
90 IFA$="P"THEN110
95 IFA$="R"THEN5
100 IFA$<>"Q"ORA$<>"P"ORA$<>"R"THEN70
110 POKE53281,1:POKE646,1:PRINT"[147]";:PRINT"LOAD"CHR$(34)"E/PCLD"CHR$(34)",8
120 [153]"RUN":[151]198,3:[151]631,19:[151]632,13:[151]633,13